Investor, creditor and trade credit relations
<% if (Request.QueryString("tipo")=2) then %>
Annual Reports
>
<%= Request.QueryString("anio") %>
| Annual Report (including audited financial statements) for the year
<% =Request.QueryString("anio")%>
|
<%
sql="SELECT * FROM tbl_archivos WHERE i_Tipo=2 and i_anio = "&Request.QueryString("anio")&" order by i_anio "
set RS = TraeRecordset(sql)
contadoranual = RS.recordcount
if contadoranual=0 then
response.write "| No hay Reportes Anuales | "
else
do while not RS.EOF
buscanombre="select * from tbl_Reportes where id_Reporte="&RS("i_Reporte")
set rbusca = TraeRecordset(buscanombre)
do while not rbusca.EOF
if(trim(rbusca("st_ReporteIngles") = "")) then
nom_report = rbusca("st_Reporte")
else
nom_report = rbusca("st_ReporteIngles")
end if
response.write " | " & nom_report & " | "
rbusca.MoveNext
loop
RS.movenext
loop
end if
%>
|
|
|
<%
else
%>
Quartely Reports/Filings
>
<%= Request.QueryString("trimestre") %>th quarter <%= Request.QueryString("anio") %>
<% =Request.QueryString("trimestre")%>th quarter of
<% =Request.QueryString("anio")%>
|
<%
sql="SELECT * FROM tbl_archivos WHERE i_Tipo=1 and i_anio = "&Request.QueryString("anio")&" and i_Trimestre="&Request.QueryString("trimestre")&" order by i_Reporte"
set RS = TraeRecordset(sql)
contadoranual = RS.recordcount
if contadoranual=0 then
response.write "| No hay Reportes Trimestrales | "
else
do while not RS.EOF
buscanombre="select * from tbl_Reportes where id_Reporte="&RS("i_Reporte")
set rbusca = TraeRecordset(buscanombre)
do while not rbusca.EOF
response.write " | " & rbusca("st_Reporte") & " | "
rbusca.MoveNext
loop
RS.movenext
loop
end if
%>
| |
|
|
<%
end if
%>
|  |
|
